CurrentDir Function

public function CurrentDir() result(cwd)

Uses

    • ifport

return current directory

Arguments

None

Return Value character(len=1000)


Variables

Type Visibility Attributes Name Initial
integer, public :: istat

Source Code

FUNCTION CurrentDir &
!
( ) &
!
RESULT (cwd)

USE ifport

IMPLICIT NONE

! Local declarations:  
CHARACTER (LEN = 1000) :: cwd
INTEGER  :: istat
!------------end of declaration------------------------------------------------


  istat = getcwd(cwd)

RETURN
END FUNCTION CurrentDir